home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / prok345.zip / PROENTER.INT < prev    next >
Text File  |  1992-06-16  |  2KB  |  71 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *  NOTICE: ALL MODIFIED VERSIONS OF THIS PROGRAM _MUST_ BE DISTRIBUTED
  12.  *          WITH SOURCE CODE.  I STRICTLY FORBID THE USE OF ANY NON-
  13.  *          PUBLIC INFORMATION IN MODIFICATIONS.  FOR EXAMPLE, YOU
  14.  *          CANNOT USE CDC PROVIDED INFORMATION FOR PCBOARD 14.5
  15.  *          COMPATIBILITY, SINCE SUCH A VERSION CANNOT BE RELEASED IN
  16.  *          SOURCE CODE.
  17.  *)
  18.  
  19. (*
  20.  * PCB ProDOOR enter message module for ProMail unit (3-1-89)
  21.  *
  22.  *)
  23.  
  24. type
  25.    message_entry_modes = (new_message, 
  26.                           reply_message, 
  27.                           reply_originator,
  28.                           comment_message,
  29.                           duplicate_message);
  30.    
  31. procedure save_message(mode: message_entry_modes);
  32. procedure show_margins;
  33. procedure show_line_number(n: integer);
  34. procedure continue_entry;
  35. procedure edit_line;
  36.  
  37. procedure insert_line(contents: string);
  38.    {open a new line at the cursor}
  39.  
  40. procedure insert_text;
  41.    {insert a line}
  42.  
  43. procedure delete_line;
  44.    {delete the line at the cursor}
  45.  
  46. procedure delete_text;
  47.    {delete a line}
  48.  
  49. procedure quote_from_original;
  50.  
  51. procedure display_original;
  52.    {display original message with optional quoting}
  53.  
  54. procedure count_lines;
  55.  
  56. procedure enter_message(mode: message_entry_modes);
  57.  
  58.  
  59. (*****************
  60. function lock_msgfile: boolean;
  61. procedure save_index;
  62. procedure save_text(mode: message_entry_modes);
  63. procedure unlock_msgfile;
  64. procedure list_message;
  65. procedure enter_header(mode: message_entry_modes);
  66. ******************)
  67.  
  68. const
  69.    default_comment_subject: string40 = '';
  70.  
  71.